home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / dwarcs11.zip / DWADEMO.BAS < prev    next >
BASIC Source File  |  1993-02-23  |  2KB  |  48 lines
  1. $IF 0
  2.   DWArcs version 1.1
  3.   Written by James R. Davis
  4.   (C) Copyright 1993 - All rights Reserved
  5.  
  6.   This library is a set of routines that will read in file data from
  7.   any archive format.  The following formats that are supported and version
  8.   numbers are:
  9.  
  10.                     ZIP - PKZIP up to version 2.04G
  11.                     ARC - PKARC up to version 5.10
  12.                     PAK - PKPAK up to version 2.51
  13.                     ZOO - Zoo up to version 2.1
  14.                     LZH - LHArc up to version 1.13c
  15.                     ARJ - ARJ up to version 2.39a BETA
  16.  
  17.   The following libraries are for the different PowerBASIC versions:
  18.  
  19.               DWARCS2F.PBU - For version 2.10f of PowerBASIC
  20.               DWARCS3A.PBU - For version 3.00a of PowerBASIC
  21.  
  22.   A version for 3.00b of PowerBASIC will be released soon.  See documentation
  23.   for further information about this library and other info.
  24.  
  25. $ENDIF
  26.  
  27. $LINK "DWARCS2F.PBU"               'Link in our PBU
  28.  
  29. CLS                                'Clear the screen
  30. File$=UCASE$(COMMAND$)             'Use filename specified on command line
  31. PRINT "Archive: ";File$            'Print initial information
  32. ArcFile$=ArcDir$(File$)            'Get the first filename from the archive
  33. WHILE ArcFile$<>""                 'Start loop, test ArcFile$
  34.   PRINT ArcFile$,                  'Print first filename
  35.                                    'Get inforamtion on file in archive, below
  36.   CALL ArcInfo(File$,ArcFile$,FileDate$,FileTime$,FileSize$,CompSize$)
  37.   PRINT FileSize$,CompSize$,FileDate$;" ";FileTime$;" ";
  38.                                    'Print compression percentage, below
  39.   PRINT USING$("###%",100-INT((100/VAL(FileSize$))*VAL(CompSize$)))
  40.   INCR TotalByte&&,VAL(FileSize$)  'Increment total actual filesizes
  41.   INCR TotalComp&&,VAL(CompSize$)  'Increment total compressed filesizes
  42.   ArcFile$=ArcDir$(File$)          'Get next filename in archive
  43. WEND                               'Continue loop
  44.                                    'Print number of files in archive, etc
  45. PRINT ArcFiles%(File$);"Files   Compressed:";TotalComp&&;"  Actual:";TotalByte&&
  46.  
  47. 'PRINT SearchArc%(File$,Search$)   'Use this if you want to find a file in
  48.                                    'an archive.